home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / WASTE 1.1a4 / WASTE Source / LongCoords.p next >
Encoding:
Text File  |  1994-03-28  |  1.1 KB  |  51 lines  |  [TEXT/PJMM]
  1. unit LongCoords;
  2.  
  3. { WASTE PROJECT: }
  4. { Long Coordinates: data types and function prototypes }
  5.  
  6. { Copyright © 1993-1994 Marco Piovanelli }
  7. { All Rights Reserved }
  8.  
  9. interface
  10.  
  11.     type
  12.  
  13.         LongPoint = record
  14.                 case Integer of
  15.                     0: (
  16.                             vh: array[VHSelect] of LongInt;
  17.                     );
  18.                     1: (
  19.                             v, h: LongInt;
  20.                     );
  21.             end;  { LongPoint }
  22.  
  23.         LongRect = record
  24.                 case Integer of
  25.                     0: (
  26.                             topLeft, botRight: LongPoint;
  27.                     );
  28.                     1: (
  29.                             top, left, bottom, right: LongInt;
  30.                     );
  31.             end;  { LongRect }
  32.  
  33.     function _WEPinInRange (value: LongInt;
  34.                                     rangeStart, rangeEnd: LongInt): LongInt;
  35.     procedure WELongPointToPoint (lp: LongPoint;
  36.                                     var p: Point);
  37.     procedure WEPointToLongPoint (p: Point;
  38.                                     var lp: LongPoint);
  39.     procedure WESetLongRect (var lr: LongRect;
  40.                                     left, top, right, bottom: LongInt);
  41.     procedure WELongRectToRect (lr: LongRect;
  42.                                     var r: Rect);
  43.     procedure WERectToLongRect (r: Rect;
  44.                                     var lr: LongRect);
  45.     procedure WEOffsetLongRect (var lr: LongRect;
  46.                                     hOffset, vOffset: LongInt);
  47.     function WELongPointInLongRect (lp: LongPoint;
  48.                                     lr: LongRect): Boolean;
  49.  
  50. implementation
  51. end.